﻿Imports System
Imports System.ComponentModel
Imports System.Workflow.ComponentModel

Namespace System.Workflow.ComponentModel.Design
    Public Class ActivityChangedEventArgs
        Inherits EventArgs
        ' Methods
        Public Sub New(ByVal activity As Activity, ByVal member As MemberDescriptor, ByVal oldValue As Object, ByVal newValue As Object)
            Me.activity = activity
            Me.member = member
            Me.oldValue = oldValue
            Me.newValue = newValue
        End Sub


        ' Properties
        Public ReadOnly Property Activity As Activity
            Get
                Return Me.activity
            End Get
        End Property

        Public ReadOnly Property Member As MemberDescriptor
            Get
                Return Me.member
            End Get
        End Property

        Public ReadOnly Property NewValue As Object
            Get
                Return Me.newValue
            End Get
        End Property

        Public ReadOnly Property OldValue As Object
            Get
                Return Me.oldValue
            End Get
        End Property


        ' Fields
        Private activity As Activity
        Private member As MemberDescriptor
        Private newValue As Object
        Private oldValue As Object
    End Class
End Namespace

